home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / boxspiral +4 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  315b  |  12 lines
  1. 0 rem the transactor volume 6 issue 02        bits & pieces section
  2. 100 rem* +4 boxspiral -cz *
  3. 110 graphic 1,1: color 1,1
  4. 120 x1=0:y1=0:x2=100:y2=100
  5. 130 n1=rnd(0)*10: n2=rnd(0)*10
  6. 150 for angle=0 to 180 step 5
  7. 160 box 1,x1,y1,x2,y2,angle
  8. 170 x1=x1+n1: y1=y1+n2
  9. 190 next angle
  10. 200 rem* run again when key pressed
  11. 210 getkey a$: run
  12.